This is my meme, this meme aims to inspire everyone to work with some funny pictures!
h2{background: linear-gradient(to left,#e66465, #9198e5);
-webkit-text-fill-color: transparent;
-webkit-background-clip: text;
font-family:Georgia, serif;}
P {font-style: italic;}
p{color: rgb(135, 93, 241);}
body{background-color: #CCD7DB}
library(magick)
n1 <- image_read("https://i0.wp.com/winkgo.com/wp-content/uploads/2018/10/21-Back-To-Work-Memes-02.jpg?resize=720%2C720&ssl=1")
n2 <- image_read("https://www.rd.com/wp-content/uploads/2021/07/Me-when-I-think-about-going-to-work-in-the-morning.jpg?resize=700,700")
new_text <- image_blank(width = 600, height = 600, #size
color = "#000000") %>%
image_annotate(text = "please go to work",
color = "#FFFFFF",
size = 60,
font = "Serif",
gravity = "center")
top_row <- image_append(c(new_text,n1))
new_text2 <- image_blank(width = 600, height = 600, #size
color = "#000000") %>% #filling color
image_annotate(text = "off work", #text content
color = "#FFFFFF", #text color
size = 60,
font = "Impact", #text font
gravity = "center") #text location
bottom_row <- image_append(c(new_text2, n2))
work_meme <- c(top_row, bottom_row) %>% #total meme
image_append(stack = TRUE) %>%
image_scale(800)
image_write(work_meme, "my_meme.png") #save the meme
library(magick)
n1 <- image_read("https://i0.wp.com/winkgo.com/wp-content/uploads/2018/10/21-Back-To-Work-Memes-02.jpg?resize=720%2C720&ssl=1")
n2 <- image_read("https://www.rd.com/wp-content/uploads/2021/07/Me-when-I-think-about-going-to-work-in-the-morning.jpg?resize=700,700")
new_text <- image_blank(width = 600, height = 600, #size
color = "#000000") %>%
image_annotate(text = "please go to work",
color = "#FFFFFF",
size = 60,
font = "Serif",
gravity = "center")
top_row <- image_append(c(new_text,n1))
new_text2 <- image_blank(width = 600, height = 600, #size
color = "#000000") %>% #filling color
image_annotate(text = "off work", #text content
color = "#FFFFFF", #text color
size = 60,
font = "Impact", #text font
gravity = "center") #text location
bottom_row <- image_append(c(new_text2, n2))
work_meme <- c(top_row, bottom_row) %>% #total meme
image_append(stack = TRUE) %>%
image_scale(800)
image_write(work_meme, "my_meme.png") #save the meme
This is my animated GIF, this animated GIF using image_morph() and image_animate() functions is used to dynamically create four gifs and automate image gradients.We can see that these pngs scroll at a very fast rate in gif.
h2{background: linear-gradient(to left,#e66465, #9198e5);
-webkit-text-fill-color: transparent;
-webkit-background-clip: text;
font-family:Georgia, serif;}
P {font-style: italic;}
p{color: rgb(135, 93, 241);}
body{background-color: #CCD7DB}
library(magick)
new_text <- image_blank(width = 600, height = 600, #size
color = "#000000") %>% #filling color
image_annotate(text = "go to work",
color = "#FFFFFF",
size = 60,
font = "Serif",
gravity = "center")
top_row <- image_append(c(new_text,n1))
new_text2 <- image_blank(width = 600, height = 600, #size
color = "#000000") %>% #filling color
image_annotate(text = "off work",
color = "#FFFFFF",
size = 60,
font = "Impact",
gravity = "center")
bottom_row <- image_append(c(new_text2, n2))
frame <- c(new_text,n1,new_text2, n2) #combine all the frames
gif_1 <- image_animate(frame, fps = 1) #make a gif
gif_2 <-image_morph(frame) %>% #make a gradient gif
image_animate(fps = 100)
animation <- c(gif_1, gif_2)
image_write(animation, "my_animation.gif")
library(magick)
n1 <- image_read("https://i0.wp.com/winkgo.com/wp-content/uploads/2018/10/21-Back-To-Work-Memes-02.jpg?resize=720%2C720&ssl=1")
n2 <- image_read("https://www.rd.com/wp-content/uploads/2021/07/Me-when-I-think-about-going-to-work-in-the-morning.jpg?resize=700,700")
new_text <- image_blank(width = 600, height = 600, #size
color = "#000000") %>%
image_annotate(text = "please go to work",
color = "#FFFFFF",
size = 60,
font = "Serif",
gravity = "center")
top_row <- image_append(c(new_text,n1))
new_text2 <- image_blank(width = 600, height = 600, #size
color = "#000000") %>% #filling color
image_annotate(text = "off work", #text content
color = "#FFFFFF", #text color
size = 60,
font = "Impact", #text font
gravity = "center") #text location
bottom_row <- image_append(c(new_text2, n2))
work_meme <- c(top_row, bottom_row) %>% #total meme
image_append(stack = TRUE) %>%
image_scale(800)
image_write(work_meme, "my_meme.png") #save the meme